﻿Imports CrystalDecisions.Shared

Public Class frmVisorDePagoArriendo
    Dim idDV As New ParameterDiscreteValue
    Public idPago As Integer
    Private Sub frmVisorDePagoArriendo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim rptPago As New rptPagoA
        idDV.Value = idPago
        rptPago.DataSourceConnections(0).SetConnection("Driver={MySQL ODBC 5.2a Driver};Server=localhost;Port=3306;", "bdCoprevi", "root", "123456")
        'CTM QUE ME COSTÓ ENCONTRAR EL STRING DE CONEXION
        rptPago.SetParameterValue("pago", idDV)
        crvPagoArriendo.ReportSource = rptPago
    End Sub
End Class